Shareware Grab Bag/Shareware Grab Bag.iso/050/tbvideo.arc/WRITELIN.INC

Text File | 1985-02-22 | 768b | 26 lines

Procedure Writelin(long_string:maxstr; color: integer);

var screen_array: Array[1..4000] of byte Absolute $B800:$0000;
    scr_pos,str_len, real_pos: integer;

begin
{$I-}
     str_len:=length(long_string);
     scr_pos:=1;
     for real_pos:=1 to str_len do
                       begin
                            screen_array[line_pos+scr_pos]:=ord(copy(long_string,real_pos,1));
                            screen_array[line_pos+scr_pos+1]:=color;
                            scr_pos:=scr_pos+2;
                       end;
    line_pos:=line_pos+160;
    if line_pos > 3800 then
                       begin
                            clrscr;
                            line_pos:=0;
                       end
{$I+}
end;